home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / DeskBus.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  5.2 KB  |  164 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        DeskBus.a
  3. ;
  4. ;    Contains:    Apple Desktop Bus (ADB) Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1987-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__DESKBUS__') = 'UNDEFINED' THEN
  19. __DESKBUS__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.  
  28. ; typedef SInt8                         ADBAddress
  29.  
  30. ; 
  31. ;    TempADBServiceRoutineUPP is needed because of circular definition of
  32. ;    ADBServiceRoutineProcPtr and ADBServiceRoutineUpp depending on each other.
  33. ;
  34.  
  35. ; typedef ProcPtr                         TempADBServiceRoutineUPP
  36.  
  37. ; 
  38. ;    typedef pascal void (*ADBInitProcPtr)(SInt8 callOrder);
  39. ;
  40. ;    Note: ADBInitProcPtr can only be created in 68K assembly language 
  41. ;          since it is a head patch that must JUMP to the previous address
  42. ;
  43.  
  44. ADBDataBlock            RECORD 0
  45. devType                     ds.b    1                ; offset: $0 (0)        ;  original handler ID 
  46. origADBAddr                 ds.b    1                ; offset: $1 (1)        ;  original ADB Address 
  47. dbServiceRtPtr             ds.l    1                ; offset: $2 (2)        ;  service routine pointer 
  48. dbDataAreaAddr             ds.l    1                ; offset: $6 (6)        ;  this field is passed as the refCon parameter to the service routine 
  49. sizeof                     EQU *                    ; size:   $A (10)
  50.                         ENDR
  51. ; typedef struct ADBDataBlock *            ADBDBlkPtr
  52.  
  53. ADBSetInfoBlock            RECORD 0
  54. siService                 ds.l    1                ; offset: $0 (0)        ;  service routine pointer 
  55. siDataAreaAddr             ds.l    1                ; offset: $4 (4)        ;  this field is passed as the refCon parameter to the service routine 
  56. sizeof                     EQU *                    ; size:   $8 (8)
  57.                         ENDR
  58. ; typedef struct ADBSetInfoBlock *        ADBSInfoPtr
  59.  
  60. ;  ADBOpBlock is only used when calling ADBOp from 68k assembly code 
  61. ADBOpBlock                RECORD 0
  62. dataBuffPtr                 ds.l    1                ; offset: $0 (0)        ;  buffer: pointer to variable length data buffer 
  63. opServiceRtPtr             ds.l    1                ; offset: $4 (4)        ;  completionProc: completion routine pointer 
  64. opDataAreaPtr             ds.l    1                ; offset: $8 (8)        ;  refCon: this field is passed as the refCon parameter to the completion routine 
  65. sizeof                     EQU *                    ; size:   $C (12)
  66.                         ENDR
  67. ; typedef struct ADBOpBlock *            ADBOpBPtr
  68.  
  69. ;
  70. ; pascal void ADBReInit(void )
  71. ;
  72.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  73.         _ADBReInit:    OPWORD    $A07B
  74.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  75.         IMPORT_CFM_FUNCTION ADBReInit
  76.     ENDIF
  77.  
  78. ; 
  79. ;    ADBOp has a different interface for 68k assembly than for everything else
  80. ;    for 68k assembly the interface is 
  81. ;    #pragma parameter __D0 ADBOp(__A0,__D0)
  82. ;    OSErr ADBOp( ADBOpBlock * pb, short commandNum );
  83. ;
  84.  
  85. ; 
  86. ;    IMPORTANT NOTE:
  87. ;    "Inside Macintosh: Devices" documents the completion routine for ADBOp will be called with
  88. ;    four parameters using 68k register based calling conventions, specifically the completion routine
  89. ;    passed in should be of type ADBServiceRoutineProcPtr. However, when upp types were first added
  90. ;    to this interface file, the type ADBCompletionUPP was mistakenly used for the second parameter
  91. ;    to ADBOp. Since applications have shipped using completion routines of type ADBCompletionUPP,
  92. ;    the mistake cannot be corrected.
  93. ;    The only difference between ADBServiceRoutineUPP and ADBCompletionUPP is the former takes an extra
  94. ;    argument which is a pointer to itself, fortunately not needed for PowerPC code.
  95. ;    For compatibility with existing 68k code, when an ADBOp completion routine is called,
  96. ;    68k register A1 will point to the completion routine, as documented in Inside Mac.
  97. ;
  98.  
  99. ;
  100. ; pascal OSErr ADBOp(Ptr refCon, ADBCompletionUPP compRout, Ptr buffer, short commandNum)
  101. ;
  102.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  103.         _ADBOp:    OPWORD    $A07C
  104.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  105.         IMPORT_CFM_FUNCTION ADBOp
  106.     ENDIF
  107.  
  108. ;
  109. ; pascal short CountADBs(void )
  110. ;
  111.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  112.         ; returns:
  113.         ;    short           <= D0
  114.         _CountADBs:    OPWORD    $A077
  115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  116.         IMPORT_CFM_FUNCTION CountADBs
  117.     ENDIF
  118.  
  119. ;
  120. ; pascal ADBAddress GetIndADB(ADBDataBlock *info, short devTableIndex)
  121. ;
  122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  123.         ; parameters:
  124.         ;    info            => A0
  125.         ;    devTableIndex   => D0
  126.         ; returns:
  127.         ;    ADBAddress      <= D0
  128.         _GetIndADB:    OPWORD    $A078
  129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  130.         IMPORT_CFM_FUNCTION GetIndADB
  131.     ENDIF
  132.  
  133. ;
  134. ; pascal OSErr GetADBInfo(ADBDataBlock *info, ADBAddress adbAddr)
  135. ;
  136.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  137.         ; parameters:
  138.         ;    info            => A0
  139.         ;    adbAddr         => D0
  140.         ; returns:
  141.         ;    OSErr           <= D0
  142.         _GetADBInfo:    OPWORD    $A079
  143.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  144.         IMPORT_CFM_FUNCTION GetADBInfo
  145.     ENDIF
  146.  
  147. ;
  148. ; pascal OSErr SetADBInfo(const ADBSetInfoBlock *info, ADBAddress adbAddr)
  149. ;
  150.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  151.         ; parameters:
  152.         ;    info            => A0
  153.         ;    adbAddr         => D0
  154.         ; returns:
  155.         ;    OSErr           <= D0
  156.         _SetADBInfo:    OPWORD    $A07A
  157.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  158.         IMPORT_CFM_FUNCTION SetADBInfo
  159.     ENDIF
  160.  
  161.  
  162.     ENDIF ; __DESKBUS__ 
  163.  
  164.